home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / adasmall / small_sp.pkg < prev    next >
Text File  |  1996-01-30  |  3KB  |  103 lines
  1. package SMALL_SP is;
  2.  
  3.    type       SEMAPHORE is private;
  4.  
  5.    -- Absolute Value
  6.    function   ABS       ( I : INTEGER   ) return INTEGER;
  7.    function   ABS       ( F : FLOAT     ) return FLOAT;
  8.  
  9.    -- Square
  10.    function   SQR       ( I : INTEGER   ) return INTEGER;
  11.    function   SQR       ( F : FLOAT     ) return FLOAT;
  12.  
  13.    -- Square Root
  14.    function   SQRT      ( I : INTEGER   ) return FLOAT;
  15.    function   SQRT      ( F : FLOAT     ) return FLOAT;
  16.  
  17.    -- Odd Valued
  18.    function   ODD       ( I : INTEGER   ) return BOOLEAN;
  19.  
  20.    -- Integer to Character
  21.    function   ASCII     ( I : INTEGER   ) return CHARACTER;
  22.  
  23.    -- Character to Integer
  24.    function   ORD       ( C : CHARACTER ) return INTEGER;
  25.  
  26.    -- Next Character
  27.    function   SUCC      ( C : CHARACTER ) return CHARACTER;
  28.  
  29.    -- Previous Character
  30.    function   PRED      ( C : CHARACTER ) return CHARACTER;
  31.  
  32.    -- Round to an Integer
  33.    function   ROUND     ( F : FLOAT     ) return INTEGER;
  34.  
  35.    -- Truncate
  36.    function   TRUNC     ( F : FLOAT     ) return INTEGER;
  37.  
  38.    -- Trigonometric Functions     w/ arguments in radians
  39.    function   SIN       ( I : INTEGER   ) return FLOAT;
  40.    function   SIN       ( F : FLOAT     ) return FLOAT;
  41.    function   COS       ( I : INTEGER   ) return FLOAT;
  42.    function   COS       ( F : FLOAT     ) return FLOAT;
  43.    function   ARCTAN    ( I : INTEGER   ) return FLOAT;
  44.    function   ARCTAN    ( F : FLOAT     ) return FLOAT;
  45.  
  46.    -- Exponential Functions
  47.    function   LN        ( I : INTEGER   ) return FLOAT;
  48.    function   LN        ( F : FLOAT     ) return FLOAT;
  49.    function   EXP       ( I : INTEGER   ) return FLOAT;
  50.    function   EXP       ( F : FLOAT     ) return FLOAT;
  51.  
  52.    -- Random Integer      from 0 to I
  53.    function   RANDOM    ( I : INTEGER   ) return INTEGER;
  54.  
  55.  
  56.    -- Get
  57.    procedure  GET       ( C : OUT CHARACTER);
  58.    procedure  GET       ( I : OUT INTEGER  );
  59.    procedure  GET       ( F : OUT FLOAT    );
  60.    procedure  GET       ( B : OUT BOOLEAN  );
  61.  
  62.    -- Get and then move file pointer to next line
  63.    procedure  GET_LINE  ( C : OUT CHARACTER);
  64.    procedure  GET_LINE  ( I : OUT INTEGER  );
  65.    procedure  GET_LINE  ( F : OUT FLOAT    );
  66.    procedure  GET_LINE  ( B : OUT BOOLEAN  );
  67.  
  68.    -- Put
  69.    procedure  PUT       ( C : IN  CHARACTER);
  70.    procedure  PUT       ( I : IN  INTEGER  );
  71.    procedure  PUT       ( I : IN  INTEGER  ":" W:  WIDTH);
  72.    procedure  PUT       ( F : IN  FLOAT    );
  73.    procedure  PUT       ( F : IN  FLOAT    ":" W:  WIDTH  ":" D : DECIMALS);
  74.    procedure  PUT       ( B : IN  BOOLEAN  );
  75.  
  76.    -- Put and then NEW_LINE
  77.    procedure  PUT_LINE  ( C : IN  CHARACTER);
  78.    procedure  PUT_LINE  ( I : IN  INTEGER  );
  79.    procedure  PUT_LINE  ( I : IN  INTEGER  ":" W:  WIDTH);
  80.    procedure  PUT_LINE  ( F : IN  FLOAT    );
  81.    procedure  PUT_LINE  ( F : IN  FLOAT    ":" W:  WIDTH  ":" D : DECIMALS);
  82.    procedure  PUT_LINE  ( B : IN  BOOLEAN  );
  83.  
  84.    -- Mark End of Line
  85.    procedure  NEW_LINE                      ;
  86.  
  87.    -- Semaphore Procedures
  88.    procedure  WAIT      ( S : SEMAPHORE    );
  89.    procedure  SIGNAL    ( S : SEMAPHORE    );
  90.  
  91.    private
  92.  
  93.    type       SEMAPHORE is new INTEGER;
  94.  
  95. end SMALL_SP;
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.